#!/usr/bin/perl
@lines=`perldoc -u -f atan2`;
foreach(@lines){
	s/\w<([^>]+)/\U$1/g;
	print;
}
